home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48_2
/
inb
< prev
next >
Wrap
Internet Message Format
|
1995-03-31
|
15KB
Path: seq!spell
From: Poul-Henning Kamp <phk@data.fls.dk>
Subject: REPOST: v01i025: NoteBook program v0.02j, Part01/01
Newsgroups: comp.sources.hp48
Followup-To: comp.sys.hp48
Approved: spell@seq.uncwil.edu
Checksum: 2779765682 (verify with brik -cv)
Submitted-by: Poul-Henning Kamp <phk@data.fls.dk>
Posting-number: Volume 1, Issue 25
Archive-name: iNB/part01
BEGIN_RDME iNB.rdm
Hello World\n
-------------
[ Sorry about the lib in the last post, this one should contain the
right code ... < vote phk@data.fls.dk for blunder of the year !> phk]
This is the second (and a half) version distributed of this little gadget.
*** iNB -- information NoteBook 0.02j ***
It is a small, more or less reliable "rolodex" for your HP48.
It allows you to maintain small register like a telephone list in a
convenient way on your HP48. I call these registers "notebooks"
In many ways this is similar to DB48, except for the speed. iNB is fast.
Indeed DB48 has been a major source of inspiration for me.
This is not the final version (when did you last see a final version ?)
but it seems worthvile to post it at this time anyway.
The library is included below in 'ASC form'. It has lib# 1031, and will
not auto-attach on cold-start, you have to attach it manually using
1031 ATTACH
in the directory of your choice. The for not auto-attaching is that the only
sensible thing to do is to include iNBmenu in your CST or similar menu,
and thus the library need only be attached when you edit your menu, or
when you edit iNBPAR and use iNBmmdd or iNByymmdd.
The library defines only three named objects:
iNBmenu
The main thing. Puts up the menu contaning the available
notebooks.
iNBmmdd
returns todays date as a string "mmdd" ("0823")
iNByymmdd
returns todays date as a string "yymmdd" ("910823")
When you execute iNBmenu, it will read a variable named iNBPAR in HOME,
(and only in HOME !), and use the information therein to present a menu.
In the menu you can enter a particular notebook by pressing the relevant key
[blue]+key enters in find-mode and [orange]+key in add-mode.,
END_RDME
This is my iNBPAR:
-------------------------------------------------------------------------------
BEGIN_RPL iNBPAR
%%HP: T(1)A(D)F(.);
{
{
"PHONE" @ Menu-label
@ could be a 21x8 grob...
{
"Telephone directory" @ title
{ HOME BASE PHONE.NB } @ Location
{ "f1" "f2" "f3" "f4" "f5" "f6" "f7" } @ Fieldnames
}
}
{
"CAL"
{
"Calendar"
{ HOME BASE CALENDAR.DB }
{ "f1" "f2" }
iNByymmdd @ Default Search string
}
}
{
"DAYS"
{
"Aniversaries"
{ HOME BASE DAYS.NB }
{ "f1" }
iNBmmdd
}
}
}
END_RPL
-------------------------------------------------------------------------------
BEGIN_DOC iNB.doc
The location can be:
Global-name: name of notebook in hidden directory.
ex: PHONE.NB
list: path of notebook.
ex: { HOME BASE PHONE.NB }
port: port-name of notebook.
ex: :0:PHONE.NB
If unable to RCL the variable, an empty list is substituted, if unable to STO
back it bails out. (I plan to employ a panic-save variable)
The notebook itself is a [list of list of string].
The first field is the "key" used for "find", and the notebook is sorted
by this field.
Key Bindings:
-------------
Review status of this notebook
On exit
[left] prev record
[right] next record
[up] scroll up
[down] scroll up
a-ON copyleft notice
Misc Notes:
-----------
It is important that all records have the same number of fields, and
that this count matches the fieldnames of the iNBPAR.
Known bugs:
-----------
will happily scroll below the text of a record.
very few checks for consistency, be carefull with imported data.
does not entirely conform to the official published list of internals.
Features planned:
-----------------
* Rewrite to use RPLCOMP + SASM &c &c
* Change to use POL.
* Custom display-procedure
* Custom validation of data
* Custom menus and keybindings.
* Custom messages in any language you like.
Source:
-------
Available from the author using mail. Presently for saturn assembler.
Author:
-------
Send comments, suggestions &c &c to:
phk@data.fls.dk
Poul-Henning Kamp
FLS Data
Enjoy,
Poul-Henning
END_DOC
BEGIN_ASC iNB.asc
%%HP: T(3)A(D)F(.);
"04B206E6103196E424020202A303E20323A60293130373138331704506100000
02F4103E4108704200D9D20C2A201100003030303030375660E0CC0CCD207600
08FC29D0041088FB78E014313317917911815D01C1BF615D01C1BF615D01C1BF
615D01C1BF615D01C1BF615D01318DF48E0B21308704100D9D20C2A20D000003
03030375660E0CC0CCD20350008FC29D0041088FB78E014313317917511815D0
1C1BF615D01C1BF615D01C1BF615D01318DF48E0B21308704300D9D2079E6084
E206096E424051425A6AE2B21308704400D9D2079E6084E206096E4240514256
E9E2B21308704500D9D20C2A20D200007275637370254E4455425F2F4E402829
7F2E692BB42129E2070460011920BF00091D30B21308704600D9D2056F143223
0E4626CBD30B21308704700D9D2029E20704A00FEF3028D630D470E0416FA450
2A17088130006167CC30EE170D9D20E0416523302A17088130616507CC30EE17
0D9D207A7217E3166AC308DA16D9D206B316FED30881300E51692421B213029E
207049006B316B204038D30CB91629E20704800B21305E17044230E0416E0E30
B21305E17079470B21308704800D9D20E0416E6230FD5509FF3000616B213087
04900D9D2044230EAA34B2130CCD20F20008F0DA1020048F13C103467000AF08
F32C108D341508704B00D9D2079E60CCD20F90008FED14114713416417414713
51793450000142164EAAD081CD5DC147174E2AD281ED7CF474CD42214A14F161
1719E2119E6C2CF422CD52E3418A30DA8F2D760179E7E7808CCD42E340CA306F
DF62446B21308704C00D9D20ECE811204029E20704E00B204029E20704F00530
4029E20704F001704029E20704D00B21308704D00D9D20E5E40167128BE40D9D
2033D409E550B2130B21308704E00D9D20E5E40D9D20A9B02B21308BE40D9D20
6EC401192040200A3D361DE4033D409E550B2130B21308704F00D9D2032046A2
1709E550B21308704010D9D20FDE811704029E207041101204029E20704210B2
040870465304087046B21308704110D9D2088130E5E401F7128BE4033D404F41
2B21308704210D9D20A5D80FC436E5E40D9D20FA45032230FC436E0E3095450A
9B02DB126A217029C8180D806B316DCC02B21308BE40D9D206B31680D801DE40
B21306B31680D80B213047A20E8E60E8E60E8E60FD55043E0129E207047009E5
509FF30FEF30FEF30FEF309E5500CA30B213047A20D6E2040E616D656D6E2030
671627D6E204066C64637D6E204037273686D6E205066C6167637D6E20403786
F677D6E2040F6074737D6E2030365727D6E2030F66666D6E2020E666D6E2020E
627D6E204046164716D6E20703747F607E6F677B213047A20C2A20D00006496E
646C2A20D000054469647C2A20B0000144646C2A20B00004456C6C2A20D00003
4F60797C2A20B0000E4F214B21308704610D9D2029E20704A00FA45088130D00
404EC30CB916D9D20E623029E20704710B2130881307104038D30CB916D9D20E
623029E20704710B2130FED301704029E20704310CAF0612850FA4504423029E
207044100D470CC41629E20704C00881300F516B765000616CB416B765051616
E04166AC30B3A167E316CA416E8F6029E20704B009FF306C42653616B2130870
4710D9D20C2A201200096E4240514250296E66716C6964684051B21308704810
D9D20FEF309FF309FF309FF300CA30FEF3018A30FEF3044F24B21308704910D9
D2011920704009B1808DA169EB5084E206042459445C454C2A20FA000A094E66
6F627D6164796F6E602E4F6475624F6F6B6A0A0020205F657C6D28456E6E696E
67602B416D607A00202020786B60446164716E266C637E246B6A0A0B574E4550
234F60797C456664702160707C6965637D5391509C2A2BA041F229329E207046
0044230B21308704A10D9D20881309FF30C9B267E3163223029E20704B005CE3
6D9D2044230E0416FED30B2130E8E60536167E316322300F516FA450C64160ED
3030040CBD307E31632230E9330E0416FED308813000616954500F516B213087
04B10D9D207E316FA450C64160ED30FED305233044230E0416E0E30881300061
6954500F516E0416C6416AB42653616B21308704C10D9D2083416BD370FD5504
33708341695450B21308704D10D9D2083416BD370CB41612270C9B262C230122
70C9B2629E207048108DA16D9D20122705923000CD1B2130D9D208341607270B
213043370B21308704E10D9D2029E20704C1029E20704D1029E20704A10B2130
8704F10D9D20E04166AC30B3A167E316C6416C9B2629E20704D1029E20704A10
B21308704020D9D20E04166AC30B3A16C2A20D20004456C65647560247869637
02275636F6274602F3BA42129E20704500CB91629E20704B10B21308704120D9
D20E04166AC30B3A167E316C6416C9B2629E20704D1029E20704B1029E20704A
10B21308704220D9D20E04166AC30B3A16C2A20F00006496E646A3CA416E8F60
FEF309FF309FF309FF300CA30FEF300CA30FEF3044F24CB916D9D207E3163223
029E20704B009FF306C42653616B2130B21308704320D9D20C5416B2040CBD30
52616B21308704420D9D20C6416E0E309FF306C42653616FEF3052616B213087
04520D9D20C6416FED30E0416AB42653616FEF3052616B21308704620D9D20C5
416B20406C426B20400ED3052616B21308704720D9D2029E20704A00CD416B54
21CC41688041B6421C2A20D000025563602C64164E76139150C2A20D000002F6
660239150E04164E76139150B7421C2A20F00003596A756027E3164495044230
E8E304E76139150C2A201100002269747563739150B842129E2070460044230B
21308704820D9D2018A300E516B21308704920D9D2079E6029E2070451068F04
CF1A32A170E04167CC308DA16D9D207E316C6416C9B26C541629E20704700B21
30D9D2029E20704A00C2A2091000E4F602255636F6274637B8421B2130B12932
9E20704600D9D2011920B0000C781629E207042201192051000C781629E20704
12011920F1000C781629E20704E101192092000C781629E20704020119203300
0C781629E20704F1011920F6000C781629E20704620119201A000C781629E207
0442011920BA000C781629E2070432011920CA000C781629E20704720119205B
000C781629E20704520119203C100C781629E20704820119206C100C781629E2
07049101DDF3B2130442306B3168C1709B3147E316CC41629E20704010B21308
704A20D9D20ECE8112040D9D20E5E4029E2070461029E207049208BE401DE40B
2130B21308704B20D9D20ECE8112040D9D20E5E4029E2070461029E207042202
9E207049208BE401DE40B2130B21308704C20D9D20ECE8112040D9D20E5E4029
E2070461029E20704E1029E207049208BE401DE40B2130B21308704D20D9D202
9E20704300A2170D9D20C2A205200096E4240514250257E646566696E6564684
051B213079E6029E20704F204191479E6029E207040304691479E6029E207041
304491479E6029E20704E2048914B21308704E20D9D2029E20704A00B1293B20
40BD37012270B0A40D9D202BF8112040D9D209FF306B650A217029E207047100
7721B2130FEF30E3D40B2130122709242143370B21308704F20D9D202BF81120
4029E20704A20FEF307CDF3B21308704030D9D202BF811204029E20704B20FEF
307CDF3B21308704130D9D202BF811204029E20704C20FEF307CDF3B21308704
000D9D2079E6029E20704D2068F04B21308704230D9D20B2130E4A20401006CF
FFDABEFB0BEF82CEF15CEFA7CEF7DCEF7FCEF6FDEFB1EEFA2EEF06EEFA1FEFB6
FEFA9FEFCEFEF700FFC40FF670FF8F0FF441FF602FF872FF493FFBC3FF404FF4
15FF1C5FF226FFC46FF2C6FFFE6FFF27FFC97FF7E7FF088FF0A8FFFC8FFEF8FF
829FF60AFFC1AFF73CFFC7CFFCCCFFC1DFF5CDFFB4EFF67EFF1AEFF2FEFFE4A2
06A0000000000000000000000000000000007300000000350000000000000000
0000000000000000000000240007096E424D656E6570007096E424D6D6464610
09096E4249797D6D64646200D3000F200012000EB186DC0"
END_ASC
iNB.lib.uu:
------------
BYTES: #CD6h 2945
BEGIN_UU iNB.uu
begin 666 iNB.lib
M2%!(4#0X+45`*V!N`1-I3D(@("`Z,"XP,FH@.3$P-S$X$P=48`$``"!/`>,4
M@`<D`)TMP*("$0```P,#`P-S908.S,#<`F<`@,^2#4`!B+^'#D$3,W$9EQ$8
MU1`<^Q;5$!S[%M40'/L6U1`<^Q;5$!S[%M40$]A/Z+`2`WA``=#9`BPJT```
M,#`P,%=FX,`,S"TP!0#X+-D`%(#X>^@0-#$3EW$5@5$-P;%O40W!L6]1#<&Q
M;U$-,8']A`XK,8`'-`"=+7#I!D@N8)#F)`05)*6F+BLQ@`=$`)TM<.D&2"Y@
MD.8D!!4D99XN*S&`!U0`G2W`H@(M```G5S8W!U+D1%4D]?+D!(*2]^*6LDL2
MDBYP0`80D0+[`)#1`RLQ@`=D`)TM4/9!(S+@9&*\/;`2`WA`!]#9`I(N<$`*
M\/X#@FT#30<.%/9*!:)Q@!@#`!9VS`/N<=#9`@X45C(#HG&`&`,65G#,`^YQ
MT-D"IR=Q/F&F/("M89TM8#MA[SV`&`/@%99"$BLQ(.D"!Y0`MA.V`@2#/<";
M89(N<$`(L!(#Y7%`)`,.%.;@`RLQ4!X'EW2P$@-X0`C0V0(.%.8F`]]5D/\#
M`!:V$@-X0`G0V0)$,N"J0RLQP-P"+P"`#ZT!`D#X,1PP9`<`^H`_P@'80U&`
M![0`G2UPZ0;,+?`)`/C>01%T,11&<11T,1670P4`$"1AY*H-&-S5''1QY*(M
M&-['3T?<)!*D01\6<9$N$>G&PD\BW"4^%*@#K?C29Q"7?GX(R-PD/@2L`_;]
M)D2V$@-X0`S0V0+.CA$"!)(N<$`.L`($DBYP0`]0`P22+G!`#Q`'!)(N<$`-
ML!(#>$`-T-D"7DX0=B&X3M#9`C--D%X%*S&P$@-X0`[0V0)>3M#9`IH+LA(#
MN$[0V0+F3!"1`@0"H--CT4XPTP3I5;`2`RLQ@`?T`)TM,`)D*G&07@4K,8`'
M!`&=+?#M&'%`(.D"!Q0!(4`@Z0(')`$K0(`'9#5`@`=D*S&`!Q0!G2V`&`->
M3A!_(;A.,-,$]!2R$@-X0!+0V0):C?!,8UY.T-D"KU0P(@//-.;@`UE4H+D@
MO2&F$@>2C('0"+83ULP@*S&`ZP2=+6`[80B-$.T$*S%@.V$(C;`2`W0JX.@&
MCF[@Z`;?54#C$)(N<$`'D%X%^3_P_@/O/_#^`^E5`*P#*S%`IP)M+D#@%M96
MUN8"`W9A<FTN0&1C;7Y@($<W)C:&TN4&%G8VU^8"!'-H;W=M+D#P!D<W
MU^8"`V-U<FTN,/!F9M;F`@)N9FTN(.`FU^8"!&1A=&%M+G`P1_<&Y_9VMQ(#
M="K`H@(-`&"4YD;&H@(-`%!$ED;'H@(+`!!$1L:B`@L`0%3&QJ("#0`P]`:7
MQZ(""P#@]!*T$@-X0!;0V0*2+G!`"O!*!8@QT``$Y#S`FV&=+>`F`Y(N<$`7
ML!(#B#%P`02#/<";89TMX"8#DBYP0!>P$@/O/1`'!)(N<$`3P/I@(5CP2@5$
M,B#I`@=$`=!TP$QADBYP0`R`&`/P%;9G!0`6QDMA>U9086$.%&;*`SL:=CYA
MK!3F^`:2+G!`"Y#_`\8D5F-A*S&`!W0!G2W`H@(A`)#F)`05)`62YF87QI9&
MA@05*S&`!X0!G2WP_@/Y/Y#_`_D_`*P#[S\0J`/O/T#T0BLQ@`>4`9TM$)$"
M!P20&PC8&I:^!4@N8$!"E43%5,2B`J\`H)#D9O8FUQ9&E_;F!N+T1E<F]/:V
MIJ```@+U5L?6@E3FYI;F=@:R%-8&IP`"`@*'M@9$%D87YF+&-N="MJ:@L'7D
M5`4R]`:7QU1F1@<2!@?'EE8VUS49!<FBL@H4+Y(CZ0('9`!$,K`2`WA`&M#9
M`H@QD/\#G"MV/F$C,B#I`@>T`,4^UMD"1#+@0&'O/;`2`XYN4&-AYQ,V(@/P
M%?9*!6P4!MX#`T#`VP/G$S8B`YXSX$!A[SV`&`,`%I9%!?`5MA(#>$`;T-D"
MYQ/V2@5L%`;>`^\]4#(#1#+@0&$./H`8`P`6ED4%\!7F0&%L%*9+8C46MA(#
M>$`<T-D".!2V/0??54`S!S@4ED4%*S&`!]0!G2V`0V';<\!+82%RP+EBPC(0
M(@><*R;I`@>$`=@:UMD"(7)0*0,`W+$2`YTM@$-A<'*P$@,T<[`2`WA`'M#9
M`I(N<$`<(.D"!]0!DBYP0!JP$@-X0!_0V0(.%&;*`SL:=CYA;!3&N6*2+G!`
M'2#I`@>D`2LQ@`<$`ITMX$!AICRPHV$L*M`"`$1E;&5T92!T:&ES(')E8V]R
M9"`_JR0AZ0('5`"\&2;I`@>T`2LQ@`<4`ITMX$!AICRPHV'G$\9&89PK)ND"
M!]0!DBYP0!L@Z0('I`$K,8`')`*=+>!`8:8\L*-A+"KP``!&:6YD.JP4YO@&
M[S^0_P/Y/Y#_`\`Z\/X#P#KP_@-$+\2;89TM<#YA(S(@Z0('M`#Y/V!,8C46
MMA(#*S&`!S0"G2W`16$K0,#;`R46MA(#>$`DT-D";!3FX`/Y/V!,8C46]OX#
M)1:V$@-X0"70V0)L%/;>`PX4IDMB-1;V_@,E%K82`WA`)M#9`EP4M@($QB2V
M`@3@/5!B82LQ@`=T`ITM(.D"!Z0`W!2V11+,%(8(%&LDP:("#0`@538&PD9A
MY&<Q&04L*M```"!O9B"34>!`8>1G,1D%>R3!H@(/`#"5IE<&<CYA1%E`)`..
M/D!^%I-1P*("$0``(I9'5S8W&06+)"'I`@=D`$0RL!(#>$`HT-D"@3H`7F$K
M,8`'E`*=+7#I!I(N<$`58/A`_*$C&@<.%';,`]@:UMD"YQ/&1F&<*\9%89(N
M<$`'L!(#G2T@Z0('I``L*I`!`$YO(%)E8V]R9'.+)+$2`QN2(^D"!V0`G2T0
MD0(+`,"'89(N<$`B$)$"%0#`AV&2+G!`(1"1`A\`P(=ADBYP0!X0D0(I`,"'
M89(N<$`@$)$",P#`AV&2+G!`'Q"1`F\`P(=ADBYP0"80D0*A`,"'89(N<$`D
M$)$"JP#`AV&2+G!`(Q"1`JP`P(=ADBYP0"<0D0*U`,"'89(N<$`E$)$"PP'`
MAV&2+G!`*!"1`L8!P(=ADBYP0!D0W3\K,4`D`[83AAP'N1-T/F',%";I`@<$
M`2LQ@`>D`ITMX.P8(4#0V0)>3B#I`@=D`9(N<$`I@.L$T4ZP$@,K,8`'M`*=
M+>#L&"%`T-D"7DX@Z0('9`&2+G!`(B#I`@>4`KA.$.T$*S&P$@-X0"S0V0+.
MCA$"!)TMX.4$DBYP0!8@Z0('Y`&2+G!`*8#K!-%.L!(#*S&`!]0"G2T@Z0('
M-``J<=#9`BPJ4`(`:4Y"4$%2('5N9&5F:6YE9$A0L1(#EVX@Z0(']`(4&73I
M!I(N<$`P0)9!EVX@Z0('%`-$&73I!I(N<$`N0)A!*S&`!^0"G2T@Z0('I``;
MDK,"!-MS$"('"TK0V0*RCQ$"!)TMD/\#ME:@$@>2+G!`%P!W$BLQ\/X#/DVP
M$@,A<I!"$C1SL!(#>$`OT-D"LH\1`@22+G!`*O#^`\?]LQ(#>$`PT-D"LH\1
M`@22+G!`*_#^`\?]LQ(#>$`QT-D"LH\1`@22+G!`+/#^`\?]LQ(#>$``T-D"
MEVX@Z0('U`*[02`WA`,M#9`BLQX*0"!`%@_/^MZ[^P_BCL'\7^>NQ_S?[W
M[&_?_AONK^+^8.ZO\?YK[Z_Y_NSO?P#_3/!O!__X\$\4_P;RCR?_E/._//\$
M]$]1_\'U+V+_3/8O;/_O]O]R_YSW?W[_@/@/BO_/^.^/_RCY;Z#_'/I_P_]\
M_,_,_QS]7]S_2_YOY_^A_B_O_TXJ8`H`````````````````````-P````!3
M`````````````````````````$(`<)#F)-16YE8'``=I3D)M;61D`9"0YB24
1E]?61D8F`#T`\`(`(0#@&P@`
`
end
END_UU
--
phk@data.fls.dk || A host is a host from coast to coast,
Poul-Henning Kamp || & no one will talk to a host that's close,
FLS DATA A/S || Unless the host (that isn't close)
Phone: (+45) 36 18 12 35 || is busy, hung or dead.
Fax: (+45) 36 18 12 18 || Anon (?)